home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mep2 / MemMon 2.0 / Samples / poly2.icn < prev    next >
Encoding:
Text File  |  1990-01-15  |  406 b   |  21 lines  |  [TEXT/PICN]
  1. record complex(i,r)
  2. procedure main()
  3.    pool := set()
  4.    s := "abc"
  5.    every 1 to 1000 do {
  6.       list(30)
  7.       t := table()
  8.       set([1,2,3,4,5,6,7,8,9,10])
  9.       every 1 to 10 do {
  10.          every insert(pool,
  11.             +0.0 |
  12.             cset("a") |
  13.             complex(set()) |
  14.             t[s[1]]
  15.             )
  16.          every 1 to *pool / 2 do
  17.             delete(pool,?pool)
  18.          }
  19.       }
  20. end
  21.